10 DV=PEEK(186):IFDV<8THENDV=8
100 POKE53280,0:POKE53281,0:PRINT"[147]	"
110 GOSUB60000
120 SYS57812"JUKEBOX.O",DV,0:POKE780,0:POKE781,0:POKE782,64:SYS65493
130 :
140 POKE16387,DV:REM DEVICE NUMBER
150 POKE16388,20:REM COLOR PREFERENCE
160 SYS16384
170 :
270 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
280 IFER<>63THENPRINT"[147]":END
290 A$="HELLO CONNECT":Q$=CHR$(34):PRINT"[147]"
300 PRINT"[144]LOAD"Q$A$Q$",8"
310 PRINT"RUN":POKE631,13:POKE632,13:POKE198,2:END
10000 OPEN15,8,15,"S0:FOSTER BOOT":CLOSE15:SAVE"FOSTER BOOT",8:END
60000 B9$="                                      "
60010 POKE214,14:PRINT:PRINT"  [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][152]"
60020 FORI=0TO7:PRINTB9$:NEXT:PRINT"  [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
60030 B9$(0)="[211][212][197][208][200][197][206] [198][207][211][212][197][210] [202][213][203][197][194][207][216]"
60040 B9$(1)="BY [196]AVE [205]ARQUIS
60050 B9$(2)[178]"(LEN) 1991 BY (null)OFTDISK, RIGHT$NC."
60060 B9$(3)[178]"(null)UBLISHED ON (null)(null)ATNSTR$(null)(null)ATN(null) #91"
60070 B9$(4)[178]"(null)UBSCRIPTIONS 1-800-831-2694"
60080 B9$(5)[178]"ATNLL (null)IGHTS (null)ESERVED"
60090 [151]214,16:[153]:[129]I[178]0[164]5:[153][163]20[171]([195](B9$(I))[173]2))""B9$(I):[130]
60099 [142]